COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	αXDEFINE ∪↔	To list items into 8 columns on a page (skip 1 less than no. rows)
C00003 ENDMK
C⊗;
αXDEFINE ∪⊗↔⊗;	To list items into 8 columns on a page (skip 1 less than no. rows)
αβA⊗;		Pick up the first item
αβ4αβ8⊗↔αβ+αβcαβ4αβ8⊗↔αβ+αβcαβ4αβ8⊗↔αβ+αβcαβ4αβ8⊗↔αβ+αβc⊗; Skip 48 and C, 4 times
αβ4αβ8⊗↔αβ+αβcαβ4αβ8⊗↔αβ+αβcαβ4αβ8⊗↔αβ+αβc⊗; Skip 48 and C, 3 times
αβ4αβ8⊗↔⊗→αβe⊗;	Skip 48 <form> and deposit
α⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αdα⊗=⊗⊗αd⊗; Collect 8 items separated by ⊗
α⊗=\cr⊗↔⊗; Go to the end, add \cr and do a <cr>
αl⊗;   return to top of list
αβ⊗↓⊗; exit